000 


LDX 


x' = n + c V 






070 


CALL 


Subroutine Entry 




* 130 FLOAT Convert n: from fixed to floating 


001 


ADX 


x' - x + n + c V 










Link in X 




* 131 FIX Convert 


a from floating to fixed V 


002 


NGX 


x' = - n - c V 






072 


EXIT 


Subroutine Exit V 




** 132 FAD a' - a 


+ n: ] 


If X = 1, Unrounded 


003 


SBX 


x' = x - n - c V 










Link in X 




** 133 FSB a' - a 


- n: 


X - 2, Not normalized 


004 


LDXC 


x' - n + c" C 






074 




Conditional Branch to N: - 




*• 134 FMPY a' = . 


n: 


/ = 4, Interchange a and n 


005 


ADXC 


x' = x + n + c C 




X = 




BRN 


Branch unconditionally 




•* 135 FDVD a' - al 


n 




006 


NGXC 


x' - - n - c C 




* = 1 




BVS 


Branch if V is set 




** 136 LFP a' - n: 


If X = 1, o ' = 


007 


SBXC 


x' = x - n - c C 




1 = 2 




BVSR 


Branch if V is set and clear V 




** 137 SFP n: ' = o If X = 1, n:' = o, a' = 










J = 3 

X = 4 




BVC 
BVCR 


Branch if V is clear 

Branch if V is clear or clear V 




















010 


STO 


n' = x + c V 




J = 5 




BCS 


Branch if C is set 




• 150 X N(M) SUSBY 


Suspend if peripheral N(M), unit X, is active 


Oil 


ADS 


n' = n + x + c V 




1 = 6 




BCC 


Branch if C is clear 




* 151 X N(M) REL 


Release peripheral N(M), unit X 


012 


N6S 


n' = - x - c V 




* = 7 




BVCI 


Branch if V is clear and/or invert V 


V 


* 152 X N(M) DIS 


Disengage peripheral N'SJ), unit X 


013 


SBS 


n' = n - x - c V 






}076 




Test floating point accumulator 




* 153 X N(M) 


Unassigned 


014 


STOC 
ADSC 


n' - x + c C 
n'=n+x+c C 














* 154 X N(M) CONT 

* 155 X N(M) SUSDP 


Read more program from peripheral N(M), unit X 
Suspend and dump program on peripheral N(M), unit X 


015 












016 


NGSC 


n' = - x - c C 






100 


LDN 


x' = N + c 




* 156 X NOW) ALLOT 


Allocate peripheral N(M), unit X, to the program 


017 


SBSC 


n' - n - x - c C 






101 


ADN 


x' - x + N + c V 




* 157 X N(M) PERI 


Initiate peripheral transfer according to control 












102 


NGN 


x' = - N - c 






area N(M), unit X 


020 


ANDX 
ORX 


x* = x & n 
x' = x v n 






103 
104 


SBN 
LDNC 


x' = x - H - c V 
x' = N + c 








021 






022 


ERX 


x' - x ^ n 






105 


ADNC 


x' = x + N + c C 




* 160 N(M) SUSTY 


Suspend and type message on console typewriter 


023 


OBEY 


Obey the instruction in N 






106 


NGNC 


x' = - N - c C 




* 160 1 N(M) DISTY 


Type message on console typewriter without suspension 


024 


LDCH 


x' - n t 






107 


SBNC 


x' = x - N - c C 




* 160 2 N(M) DELTY 


Delete program and treat message as console directive 


025 


LDEX 
TXU 


x - n e 

Set Cifn?xorc=l 














* 161 NN(M) SUSWT 

* 161 1 NN(M) DISP 


Suspend and type HALTED NN on the console typewriter 
Type DISPLAY NN on the console typewriter without 


026 












027 


TXL 


Set C if n + c > * 




u t =o 

N - 1 


110 


SLC 
SLL 
SLA 


Shift x left N s places. Circular 
Shift x left # s places. Logical 
Shift x left N s places. Arithmetic 






* 161 2 NN(M) DEL 


suspension 

Delete program and type DELETED NN on the console 


030 


ANDS 


n' = n & x 








V 






typewriter 


031 


ORS 


n' = n v x 




*t =0 


112 


SRC 


Shift x right N s places. Circular 




Single 


t* 162 X SUSMA 


Suspend if subprogram X is active 


032 


ERS 


n' - n £ x 




h = 1 




SRL 


Shift x right N s places. Logical 




length 


t* 163 X N(M) AUTO 


Activate and enter subprogram X at N(M) 


033 


STOZ 


n' = 




*t = 2 




SRA 


Shift x right ff s places. Arithmetic 






f* 164 SUSAR 


De-activate the current subprogram 


034 


DCH 


n * — 5Co 




jV t = 3 




SRAV 


Shift x right N s places. Special 






* 165 X N(M) GIVE 


If N(M) = 0, X will contain date in binary 


035 


DEX 


" 1 3 

W - — x« 






© 114 


NORM 


Normalize x 


V 






If N(M) = 1, XX* will contain date in character 


036 


DSA 


"o = Xa 






f 116 


MVCH 


Transfer N characters 






form 


037 


DLA 


n ' = x„ 
















If N(M) = 2, XX* will contain time in character 






™« *• 






© 111 


SLC 
SLL 


Shift x: left # s places. Circular 
Shift x: left H s places. Logical 






form 
If N(M) = 3, X will contain core store allocated 
to this program 


© 040 
© 041 


MPY 
MPR 


x:' = n.x V 
x' = n.x rounded, x* spoiled V 




^ 








x:' - n.x + x* V 
x:' = 10.x: + n j V 
x*' = x:/n, x' = Remainder V 




N t = 2,3 




SLA 


Shift x: left N s places. Arithmetic 


V 








© 042 

© 043 


MPA 
CDS 




^t=o 


© 113 


SRC 


Shift x: right N s places, Circular 




> Double 


Notes 




© 044 


DVD 




*t = 1 




SRL 


Shift x: right ff s places. Logical 




length 






© 045 


DVR 


x*' = x:/n rounded, x' = Remainder V 




JV t = 2 




SRA 


Shift x: right N s places. Arithmetic 






The function codes 


140 to 147 are undefined. 


© 046 


DVS 


x*' = x*/n, x' = Remainder V 




^t = 3 




SRAV 


Shift x: right M s places. Special 










© 047 


CBD 


x: ' = 10.x:, nj' = Character 






115 


NORM 


Normalize x: 


v , 




C These instructions 


may set the carry register but cannot cause 










t 117 


SMO 


Supplementary modifier to next instruction 


overflow. 

The carry register 


C is left clear by any order except 023 and 123, 




BZE 


Branch to N if x = 




050 












052 


BNZ 


Branch to A' if x ^ 






120 


ANDN 


x' = x & N 




unless that order sets C. 


054 


BPZ 


Branch to # if x > 






121 


ORN 


x' = x v N 








056 


BNG 


Branch to # if x < 






122 


ERN 


x' - x 4 N 




V These instructions 


may cause overflow. 


060 


BUX 


Single word modify: x m ' = x M + 1 




x c ' = x c - 1 




123 


NULL 


No operation 




© These instructions 


are performed on 1902, 1903 by extracode and by 


062 


BDX 


Double word modify: x % ' = x„ + 2 


• 


Branch to N 




124 


LDCT 


x c ' = If, xn - 




hardware on the other machines. 


064 


BCHX 


Character modify: x„' = x« + . 1 




if x c ' * 




125 


MODE 


Set mode N 








t 066 


BCT 


Count least significant >ifbits of Z. 


*•' = *. - ! 




© 126 


MOVE 


Transfer N words from address x to address x* 


** These instructions 


are performed on 1902, 1903, 1904 by extracode and 






*X 


Branch to # 
if x ' / 

771 




© 127 


SUM 


x' = Sum of N words from address x* 




by hardware on the 


other machines. 


















* These instructions are performed by extracode on all machines. 

t These facilities are not available on 1902, 1903 processors with less 


IS 
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K 


+ \ 


1. Computers L u ) 


ney 
ndonSW15 




PLAN - Summarised 


than 16 K store. 
| These instructions 
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NOTATION 

N is a core store address or a 12 bit number. 

X is an accumulator (registers 0-7). 

M is a modifier register (registers 1-3). 

F is a function. 

C is the carry register. 

c is the content of C (0 or 1). 

V is the overflow register. 

A is the floating point accumulator. 

a is the content of A. 

x, m are the contents of X, M respectively. 

n is the content of N after modification by m if necessary. 

X* is the accumulator X + 1 (Xl* - X0) 

x* is the content of X*. 

x' , n' , a' are the contents of /, H, A after an instruction 
has been obeyed. 

x: , n: are double length numbers in X, X + 1, and N, N + 1 
respectively. 

S is the sign bit (bit 0). 

The most significant bit of the second word of a double 
length number is always zero. 

Subscripts 

In general these are applicable to x or n. 

x e is the least significant 9 bits of x. The exponent of a 
floating point number occupies this portion of the second 
word. 

x a is the least significant 12 bits of x (the N address of 
an instruction). 

x c is a 9 bit counter at the most significant end of x. 

x n is the least significant 15 bits of x (the modifier 
part of an index register). 

x\ is the most significant 2 bits of x, used in character 
modifying with end-around - carry to x%. 

x d is the least significant 7 bits of x c . 

xj is any one of x , x lt x 2 , x 3 , the four 6-bit characters 
of x. 

* 

Mt is the most significant 2 bits of the 12 bit ff address. 
N s is the least significant 10 bits of the 12 bit N address. 

Note: - 

* When in extended mode (1906 and 1907 only) the modifier 
extends to 22 bits, the count being held separately. 



NORMAL 
ORDERS 



JUMP 
ORDERS 



SHIFT 
ORDERS 

DOUBLE 

LENGTH 

FIXED 

POINT 

NUMBER 



FLOATING 

POINT 

NUMBER 



NORMAL 
COUNTER - 

MODIFIER 

* 

CHARACTER 
COUNTER- 
MODIFIER^ 



CHARACTER 
POSITIONS 



24-bit I.C.T. 1900 word 
/ F M Norx, 



3 


7 


2 


12 



N 



3 


6 


15 



M N< 



N c 



3 


7 


2 


2 


10 



r s 



23 



23 



f S 



23 



1 


14 


9 



*c 


*« 


9 


15 



Xk 



Xd 



2 


7 


15 



x 



*2 



X 3 



6 


6 


6 


6 



MACRO INSTRUCTIONS (PLAN 3 ONLY) 



INSTRUCTION 



LDX 
ADX 
NGX 
SBX 
STO 
ADS 
NGS 
SBS 

BXU 

BXU 

BXE 

BXE 

BXL 

BXL 

BXGE 

BXGE 



XX* 
XX* 
XX* 
XX* 
XX* 



N(M) 
N(M) 
N(M) 
N(M) 
N(M) 



XX* N(M) 
XX* N(M) 
XX* N(M) 



EFFECT 



x: ' = n: 
x: ' = x: + n: 
x: ' - - n: 
x: ' - x: - n: 
n: ' = x: 
n: ' = n: + x: 
n . — -x. 
n:' - n: - x: 



X 

XX* 

X 

XX* 

X 

XX* 

X 

XX* 



Ni(M) 
Nj(M) 
N X (M) 
N X (M) 
Ni(M) 
N X (M) 
N X (M) 
N X (M) 



,N 2 
,N 2 
,N 2 
.N 2 
.N 2 
,N 2 
.N 2 
,N 2 



If X ^ Hi J um P *° ^2 

If x: t rii. jump to N 2 
If x - ni jump to ^2 
If x: - n\\ jump to N 2 
If x < n t jump to N 2 
If x: < n t : jump to N 2 
If x ^ Tli J 1 ™? t0 ^2 
If x: ^ rii. jump to N 2 



LDSA X N(M) 
LDLA X N(M) 
LDPL X N 



x - n, 



x' - N(15 bits) 



NO. OF BASIC 
INSTRUCTIONS 

2 
2 
2 
2 
2 
2 
2 
2 

2 
3 
2 
3 
2 
3 
2 
3 

2 
2 
1 





WTM 


X 




REW 


X 


s 

1. 


BSP 
BTM 
FTM 


X 
X 
X 


i 


CLOSE 


X 


H 


SCR 


X 




UNL 


X 



Write tape mark on MTX 

Rewind MTX 

Backspace MTX 

Move back past tape mark on MTX 

Move forward past tape mark on MTX 

Close MTX 

OPEN MTX and leave scratch 

Close file and unload 



MAJOR DIRECTIVES 

The appearance of any directive in this group cancels the 
effect of any previous directive in the group. 

# PROGRAM - introduces a section of program instructions 

# LOWER - introduces lower data (below location 4096) 

# UPPER - introduces upper data (not Plan 1) 

# PERIPHERAL - is followed by specification of peripherals 

(other than magnetic tapes) 



PROGRAM AREA DIRECTIVES 

These directives appear in PROGRAM area only 
# CUE 



# ENTRY 



- gives a label to the following instruction for use by all 
segments 

- makes the following instruction entry point N, where N is 
written in the operand field 



# MACRO 

# END 

# FINISH 
PLAN 1 only 

# COMPLETE 



- indicates that a description of a private macro 
follows (Plan 3 only) 

- the last statement of a segment; ends compilation 

- indicates that this is the last segment to be compiled 



- indicates that the program is to he output in 
consolidated form. 



# MONITOR - introduces specification of monitor printing 

GENERAL PURPOSE DIRECTIVES 

The directives may appear anywhere in the program 

# SET - used to define a name (may be reset) 

# DEFINE - used to define a name (may not be redefined) 

# - used for writing comments 

# PAGE - causes paper throw on printer. 



